home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / v9n12.arc / SECURITY.PRG < prev    next >
Text File  |  1990-05-29  |  691b  |  39 lines
  1. DATABASES
  2. Vol. 9, No. 12
  3.  
  4. *** SECURITY.PRG   Brad Stark
  5. CLEAR
  6. SET TALK OFF
  7. title = "SECURITY PROGRAM"
  8. oldword = GETE("PASS")
  9. password = SPACE(6)
  10. newword = ''
  11. point = 1
  12. @  7,(79-LEN(title))/2 SAY title
  13. @ 10,23 TO 12,54 DOUBLE
  14. @ 11,26 SAY "Enter password: "
  15. SET INTEN OFF
  16. SET COLOR TO N/N
  17. @ 11,COL() GET password
  18. READ
  19. password = TRIM(password)
  20. SET COLOR TO
  21. SET INTEN ON
  22.  
  23. DO WHILE point <= LEN(password)
  24.    char1 = SUBS(password,point,1)
  25.    char2 = SUBS(title,point,1)
  26.    newword = newword + CHR(ASC(char1)+ASC(char2)-64)
  27.    point = point + 1
  28. ENDDO
  29.  
  30. IF newword=oldword
  31.    **  Main program code inserted here
  32. ELSE
  33.    WAIT "Access denied!"
  34.    QUIT
  35. ENDIF
  36.  
  37.  
  38.  
  39.